From: Kenichi Handa <handa@m17n.org>
Date: Mon, 13 Jul 2009 01:02:51 +0000 (+0000)
Subject: (internal_self_insert): Check sym by SYMBOLP before
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~11502
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=084b9efa6e1e42ac8852ed1845e9f90b07879388;p=emacs.git

(internal_self_insert): Check sym by SYMBOLP before
calling XSYMBOL (sym).
---

diff --git a/src/cmds.c b/src/cmds.c
index 60916705c97..33472b5710b 100644
--- a/src/cmds.c
+++ b/src/cmds.c
@@ -492,7 +492,7 @@ internal_self_insert (c, noautofill)
       /* If we expanded an abbrev which has a hook,
 	 and the hook has a non-nil `no-self-insert' property,
 	 return right away--don't really self-insert.  */
-      if (! NILP (sym) && ! NILP (XSYMBOL (sym)->function)
+      if (SYMBOLP (sym) && ! NILP (sym) && ! NILP (XSYMBOL (sym)->function)
 	  && SYMBOLP (XSYMBOL (sym)->function))
 	{
 	  Lisp_Object prop;